home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / ThreadRunn60422382002.psc / BGTRDemo / DBWorks DLL / Classes / CBGTRDBWorkFactory.cls next >
Encoding:
Visual Basic class definition  |  2002-03-03  |  1.5 KB  |  44 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "CBGTRDBWorkFactory"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. '********************************************************************************************
  17. '   CBGTRDBWorkFactory Class Definition
  18. '   Class defines secondary concrete factory class for the DBWorks DLL
  19. '   This factory provides actual tasks by creating the appropriate concrete
  20. '   class instances implementing the IBGTRWork interface
  21. '
  22. '   Instancing is set to:  5 - MultiUse
  23. ''
  24. '********************************************************************************************
  25. Option Explicit
  26.  
  27. Implements IBGTRWorkFactory
  28.  
  29. Private Function IBGTRWorkFactory_CreateWork(arWorkDescriptors() As String) As IBGTRWork
  30. On Error GoTo CatchErr
  31.     
  32.     Select Case arWorkDescriptors(0)
  33.         Case "Query"
  34.             Set IBGTRWorkFactory_CreateWork = New CBGTRUserQuery
  35.             
  36.         Case "Recordset"
  37.             Set IBGTRWorkFactory_CreateWork = New CBGTRMakeRecords
  38.     End Select
  39.  
  40. Exit Function
  41. CatchErr:
  42.     Err.Raise Err.Number, Err.Source & " in CBGTRDBWorks.CBGTRWorkFactory.IBGTRWorkFactory_CreateWork", Err.Description
  43. End Function
  44.